BEGIN "UNWORD"
REQUIRE "FILHDR.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER FOO,FLAG,CHAN,EOF,I,J;
CHAN←GETCHAN;
OUTSTR("FILE:");
PRSFIL(INCHWL);
OPEN(CHAN,DEVPRS,'17,7,0,FOO,FOO,EOF);
LOOKUP(CHAN,FILPRS,FLAG);
WHILE ¬EOF DO
   BEGIN
   STRING S,T;
   S←CVASTR(WORDIN(CHAN));
   T←"";
   DO
      BEGIN
      J←LOP(S);
      T←T&J;
      END
   UNTIL (J<'40∧J≠0∧J≠'11∧J≠'12∧J≠'15) ∨ J≥'140 ∨ LENGTH(S)≤0;
   IF ¬((J<'40∧J≠0∧J≠'11∧J≠'12∧J≠'15) ∨ J≥'140) THEN OUTSTR(T);
   END;
END;